home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aan.d64 / proc.tran < prev    next >
Text File  |  2007-02-28  |  532b  |  20 lines
  1. 0010 //
  2. 0020 ╨╥╧├ TRAN(BYTES,INTSA,EXPSA,EXPB,ACTION) ├╠╧╙┼─
  3. 0030   // BY ┬OB ┬AIN
  4. 0040   // USE ACTION 144 TO STASH
  5. 0050   // USE ACTION 145 TO FETCH
  6. 0060   // USE ACTION 146 TO SWAP
  7. 0070   RE:=57088
  8. 0080   ╞╧╥ I:=RE ╘╧ RE+10 ─╧
  9. 0090     ╨╧╦┼ I,0
  10. 0100   ┼╬─╞╧╥ I
  11. 0110   ╨╧╦┼ RE+8,(BYTES ─╔╓ 256)
  12. 0120   ╨╧╦┼ RE+7,(BYTES ═╧─ 256)
  13. 0130   ╨╧╦┼ RE+3,(INTSA ─╔╓ 256)
  14. 0140   ╨╧╦┼ RE+2,(INTSA ═╧─ 256)
  15. 0150   ╨╧╦┼ RE+5,(EXPSA ─╔╓ 256)
  16. 0160   ╨╧╦┼ RE+4,(EXPSA ═╧─ 256)
  17. 0170   ╨╧╦┼ RE+6,(EXPB+248)
  18. 0180   ╨╧╦┼ RE+1,ACTION
  19. 0190 ┼╬─╨╥╧├ TRAN
  20.